home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / copycomb / ccdemo.frm < prev    next >
Text File  |  1998-10-19  |  2KB  |  66 lines
  1. VERSION 5.00
  2. Object = "{4A6838E0-0CF9-11D2-9098-006097338A58}#1.1#0"; "CCOM.DLL"
  3. Object = "{02B5E320-7292-11CF-93D5-0020AF99504A}#1.0#0"; "MSCHART.OCX"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00C0C0C0&
  6.    Caption         =   "Eckler CopyCom Demo"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin MSChartLib.MSChart MSChart1 
  16.       Height          =   1815
  17.       Left            =   240
  18.       OleObjectBlob   =   "ccdemo.frx":0000
  19.       TabIndex        =   1
  20.       Top             =   240
  21.       Width           =   4095
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Copy Chart"
  25.       Height          =   615
  26.       Left            =   2280
  27.       TabIndex        =   0
  28.       Top             =   2280
  29.       Width           =   2175
  30.    End
  31.    Begin CCOMLibCtl.CopyCom CopyCom1 
  32.       Left            =   720
  33.       OleObjectBlob   =   "ccdemo.frx":2350
  34.       Top             =   2400
  35.    End
  36. End
  37. Attribute VB_Name = "Form1"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43.  
  44. Private Sub Command1_Click()
  45. Dim i As Integer
  46.  
  47.    'Create a gif copy with tranparent background.
  48.    CopyCom1.Type = 1
  49.    Call CopyCom1.CopyCom(MSChart1.Object, "c:\copycom.gif")
  50.    
  51.    'Create a bitmap copy.
  52.    CopyCom1.Type = 2
  53.    Call CopyCom1.CopyCom(MSChart1.Object, "c:\copycom.bmp")
  54.    
  55. End Sub
  56.  
  57.  
  58. Private Sub Form_Load()
  59.    
  60.    'Set backgroud to white for 16 & 24 bit displays, not needed for 256 color displays.
  61. '   MSChart1.Backdrop.Fill.Style = VtFillStyleBrush
  62. '   MSChart1.Backdrop.Fill.Brush.FillColor.Set &HC0, &HC0, &HC0
  63. '   CopyCom1.BgColor = &HFFFFFF
  64.  
  65. End Sub
  66.